home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / frte.zip / MULT.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-06  |  665b  |  35 lines
  1. unit mult;
  2. interface
  3.     const
  4.         TrapMultError : boolean = false;
  5.  
  6.     function Multword(A,B:word):word;
  7. implementation
  8. uses FRTE;
  9.  var
  10.    ID:word;
  11. {$F+}
  12.     function MultWord_Error_Handler(ErrorMultress:pointer; ErrorCode:word):integer;
  13.         begin
  14.         if TrapMultError then
  15.             begin
  16.             Writeln('Overflow in Mult procedure.');
  17.             MultWord_error_Handler := 1;
  18.             end
  19.         else
  20.             MultWord_error_handler := 0;
  21.         end;
  22.  
  23.      function  MultWord(A,B:word):word;
  24.      var
  25.          C:word;
  26.      begin
  27.      {$R-}
  28.          C := A * B;
  29.          if (C<A)or(C<B) then
  30.              FRTError(Find_far_Caller(1),201 or ID);
  31.          MultWord := C;
  32.      end;
  33. begin
  34.     ID := installFRTE(MultWord_Error_Handler);
  35. end.